RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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SSSSSSSS UU UU B8BBB8BBB PPPPPPPP AAAAAA GGGGGGGG 
SSSSSSSS UU UU B88B8BBBBB PPPPPPPP AAAARA GGGGGGGG 
$$ UU UU BB BB PP PP AA AA GG 
SS UU UU 8B BB PP PP AA AA GG 
SS UU UU BB BB PP PP AA AA GG 
SS UU BB BB PP PP AA AA GG 
SSSSSS uJ UU BBBBBBBB PPPPPPPP AA AA GG 
SSSSSS UU UU BB PPPPPPPP AA AA GG 
SS UU UU BB BB PP AAAAAAAAAA GG GGGGGG 
SS UU BB BB PP AAAAAAAAAA GG GGGGGG 
SS UU BB BB PP AA AA GG GG eoee 
SS UU UU 8B BB PP AA AA GG GG eee 
SSSSSSSS UUUUUUUUUU = BBBBBBBB PP AA AA GGGGGG eee 
SSSSSSSS UUUUUUUUUU =BBBBBBBB PP aa AA GGGGGG eee 
LL III] SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I! SS 
LL I SS 
LL 1) Ss 
LLLLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 
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Process .CEND J] SUBPAGE directives Sep-19 2:51:53 AX-11 Bliss-32 V4.0-7 Page 1 
16- Sen 1984 PF ahiig | Hainer saeSsospke cou, - ai 
1 ZTITLE ‘Process .CEND ] SUBPAGE directives’ 3 
¢ MODULE SUBPAG ( ; 
] IDENT = ‘'V04-000' $ 
004 %BL1SS32C : 
005 ADDRESSING _MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) ; 
88 )s ; 
43 ! BEGIN : 
Bait 1 eneeeneneuensgnehianagnaneenenseETieminoenieensenstennenenimttenenineanEneS : 
® Py 
Bog 1 i® COPYRIGHT (c) 1978, 1980 1982, 1984 BY « 3 
013 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 3 
O04 | is ALL RIGHTS RESERVED. . : 
3 * Ps 
0016 1 '* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 3 
0017 1 !'* ONLY IN ACCORDANCE WITH mS SU CENSE AND WITH THE * ; 
0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY eR * : 
0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
0020 1 !* 0 PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
99 1 | * TRANSFERRED. * : 
' * : 
00 5 1 '« THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 § 
99 ; * CORPORATION. » 3 
; * Py 
0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 3 
90 g | ke SOFTWARE ON EQUIPMEN] WHICH IS NOT SUPPLIED BY DIGITAL. « : 
' " ; 
0030 1 !* * 3 $ 
9 ! ‘eich acta aaa ahah ti cient ‘ 3 
$033 1 i++ : 
00 | FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : § 
Bo38 1 | ABSTRACT: Processes the following commands: : 2 
0037 1! .END SUBPAGE . SUBPAGE 3 § 
0038 1: 8 
0039 1: 3 
ik : } ENVIRONMENT: Transportable : 
004¢ | AUTHOR: R.W.Friday CREATION DATE: November, 1978 ; 
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Pro 


Revis 


cess -CEND ] SUBPAGE directives 
on History 


RSBTTL "Revision History’ 
} MODIFIED BY: 
005 REMO0005 
copyright dates. 


i 


Ie 


Sep-1 
Sep-1 


Ray Marshall 


Be 15:08: 


53 
16 


07-Mar-1983 


Global edit of all ‘nodules. Updated module 


Changed require files to 


names 


AX-11 Bliss-32 V4.0-7 
RUNOFF ..SRCJSUBPAG. Li: 


idents, 


BLISS library. 
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Process .CEND J] SUBPAGE directives 16-Sep-1984 01:51:5 AX-11 Bliss-32 V4.0-74 
Module Level paclatar ons 19-808-1382 94:34:33 ANNORF SRE TSCBPAC OL fff ae (3 

? : XSBTTL "Module Level Declarations’ 

5 | TABLE OF CONTENTS: 

28 i 

28 ' INCLUDE FILES: 
bet i ee *"NXPORT:XPORT' ' XPORT Lib 

: ; ' rar 

Doge 1 REQUIRE "REQ:RNODEF i RUNOFF variant definitions 
813¢ 1 ZIF DSRPLUS ZX THEN 
0196 : ,eBRerv REQ:DPLLIB'; ' DSRPLUS BLISS Library 
0197 1 LIBRARY ‘REQ:DSRLIB'; ! R 
0198 4 bit DSR BLISS Library 
tba 1 

00 1! 
0201 1 ! MACROS 
0 o 1! 
5 1 | EQUATED SYMBOLS 
0205 1 ; 
0206 1! 
8 07 1 =! OWN STORAGE: 

08 1! 
0209 1! 
0210 1 ! EXTERNAL REFERENCES: 
0211 1! 
0 1 1 
021 1 EXTERNAL 
osie 1 NPAGEN : PAGE DEFINITION, 
0215 1 PAGEN : PAGE DEFINITION, 
8519 ' PHAN : PHAN_DEF INITION; 
Osis 1 EXTERNAL ROUTINE 
0219 1 GCPAGE, 
0220 1 OUTCRG; 
0221 1 
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SUBPA cess .CEND ] SUBPAGE directives 16-Sep-1984 01:51:53 AX-11 Bliss-32 V4.0-74 P 4 SUBS 
yoe-080 PAG == 12-88-1382 HT RUNOFF .SRCJSUBPAG.BLI; - (4) ve: 

%SBTTL 'SUBPAG --' 

GLOBAL ROUTINE subpag (handler_code) : NOVALUE = 000¢ 

'+44 000C 

: FUNCTIONAL DESCRIPTION: 

See ABSTRACT, above. 

FORMAL PARAMETERS: 900¢ 

Handler_code specifies which command is to be processed. 

IMPLICIT INPUTS: None 

| IMPLICIT OUTPUTS: None 

i ROUTINE VALUE: 

: COMPLETION CODES: None 

| SIDE EFFECTS: None 

leo 

BEGIN 


vasa | tan -HANDLER_CODE OF 


CH_SUBPAGE) : 
BEGIN 


GCPAGE (); 'Generate code for a new page; 
OUTCRG (); 'Force top of page. 


IF .NPAGEN CSCT_SUB_PAGE] EQL 0 THEN ! If not already turned on, 
N ' turn on subpaging 

NPAGEN CSCT_SUB_PAGE] = 1; '1 is ‘A’ in binary. 

— SCT-PAGE] = .PAGEN CSCT_PAGEJ; 
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‘If at the top of 
IF 


the document, start subpaging immediately 
»-PHAN_TOP_FIRST T 
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HEN 

B 
3 PAGEN CSCT_SUB_PAGE] = .NPAGEN CSCT_SUB_ PAGE); 
3 NPAGEN CSCT_SUB_PAGE] = .NPAGEN CSCT_SUB_PAGE) + 1; 
4 ° 
4 RETURN; 
? END; 
4 1 CH_END_ SUBPAGE) : 
4 ¢ BEGIN 
4 2 GCPAGE (); 'Generate code for a new page; 
47 74 OUTCRG (); 'Force to top of new page. 
48 75 'Do not clear subpage counter yet -- until the page number 
49 % ! is iiamenad out yore on 1.124e). 
50 7 fa PAGEN fe: SUB_PAGE] = 0; 'Clear subpage counter. 
51 78 NPAGEN LSCT_SUB_PAGE) = 0; tins 


08 A2 


SUBPA Process .CEND ] SUBPAGE directives 
§e-080 SUBPRG. os ’ 


mma 


a ¢ 79 

4 e} 

; «6154 1 END 

: : 5 8 TES; 

4 : 8 84 END; 
000000C¢8 


oOo OWwUMuM 
eur NONWE wu 


= 
wr 


OoPFrooowu! FPEMOKOCOFYFOOWUIPMmMmm 
~m 
wn 


—MOOMO MM™W—DVrOOW OO NTN 
oogns—-VCOoOmTmamow en, Bete Re 
& FOWN— FOOWOWOCOWMMae@anr—om 
SOOOoooCooQooooooooooooooooooOe 
OOoCoooooooooooooooooooooooe 
SOOCCCOCSOOCOOOOCOCOCOOCOOOOoOoOoOSoe 
Ceo Le ea Ss 
MADDOW TS SUIN SOL MD OrymM JO Or 


w 
bed 


; Routine Size: 98 bytes, Routine Base: S$CODE$ + 0000 


PSECT SUMMARY 
Bytes | 


753 AX=-11 Bliss-32 V4.0-74 
716 RUNOFF .SRCJSUBPAG.BLI; 


NPAGEN CSCT_PAGE] = .PAGEN CSCT_PAGE) + 1;!... 
RETURN; 


!End of SUBPAG 


Sugr As Process .CEND ] SUBPAGE directives 
\v04=000\ 

NPAGEN, PAGEN, PHAN 

GCPAGE, OUTCRG 

SCODES,NOWRT,2 


SUBPAG, Save R2,R3,R4,R5 
GCPAGE, R5 


NPAGEN, R2 
HANDLER CODE, RO 
RO, #200 


#0, GCPAGE 
#0, rd poe 
— 


#1, NPAGEN+2 
PAGEN+8, NPAGEN+8 
PHAN+24 

NPAGEN+2, PAGEN+2 
NPAGEN+2 


RO, #63 
3$ 


#0, GCPAGE 

#0, OUTCRG 

NPAGEN+2 

#1, PAGEN+8, NPAGEN+8 


‘End of module 


Oooooo SOOCOCOCoOO COCO CO 


0223 


wm ry, NSVOOOUM Ww ws 
OOfW ——VFNON YN Own 


MPTP —POPOPOPEPOPEPY) «—POPOPO ss FOr 


SUBPAG Process .CEND ] SUBPAGE directives 16-50 Sep-1984 + 91:3) AX-11 Bliss-32 V4.0-74 
SUBPAG <== 


v04-000 


14-Sep-1984 13:08: RUNOFF .SRCJSUBPAG.BLI; 


SCODES 98 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


cocceess Syabols ooececes Pages Processing 
File Total Loaded Percent Mapped Time 
$255$DUA28: CSYSLIBJXPORT.L32;1 9 252 00:00.1 
Rit tits RUNOFF .SRCIDS Ria. L32;1 1328 4 86 00:00.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SUBPAG/OBJ=OBJ$:SUBPAG MSRC$:SUBPAG/UPDATE=(ENH$: SUBPAG) 


Size: 98 code + 0 data bytes 
Run Time: 00:03.4 


Lexemes/CPU-Min: 151 
poner Used: 35 pages 
Compila 
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ORATION 
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